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SBEGIN RMSOWAIT,O00,RMSRMS,<WAIT FOR AYNC OPERATION COMPLETION> | 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE Ww THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eoRPORAT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: ABSTRACT: 

$ Routine to perform the SWAIT function to allow 

: for synchronization with the completion of asynchronous 

3 requests. 

> ENVIRONMENT: 

: AUTHOR: L F Laverdure, Creation Date: 3-Feb-1977 

: Modified By: 

; V03-002 RASO141 Ron Schaefer 6-Apr-1983 

; Change the check for same RAB to be more fool-proof. 

: v03-001 KBT0197 Keith B. Thompson 23-Aug-1982 
5 Reorganize psects 
: V02-006 REFORMAT Frederick E. Deen, Jr. 29-Jul-1980 

: This code was reformatted to adhere to RMS standards 
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-SBTTL RMSSWAIT = SWAIT ROUTINE 


p++ 
; RMSSWAIT = Allow synchronization with the completion of asynchronous requests 


This module performs the following functions: 
1. Checks for valid IRAB (via ISI) and if none, assumes DISCONNECT 


was done, therefore leaves STS alone unless it is zero, in 
which case it is set to RMS$_SUC. 
Checks that the RAB is the same one for Last operation, 
and if not merely declares success if not busy, else if busy sets 
sos to indicate different RAB and causes WAIT for same 
even ag. 
- If same Rae, tests STS for non-zero, indicating completion. 
if zero, checks IRAB busy bit and causes WAIT if busy, else returns 


success. 
4. If STALL required, exits RMS with STATUS = RMS$_STALL 


CALLING SEQUENCE: 


Entered from EXEC as a resu 


lt of user's calling SYSS$WAIT 
(e.g., by using the $WAIT MACRO) 


INPUT PARAMETERS: 


User's argument List addr 


IMPLICIT INPUTS: 
The contents of the RAB (STS) and RELATED IRAB. 
OUTPUT PARAMETERS: 


destroyed 
status code 


IMPLICIT OUTPUTS: 

The IRAB is updated to reflect the STALL. 

A COMPLETION AST is queued if specified in the original user arglist. 
COMPLETION CODES: 


Standard RMS (see functional spec for List) as per the 
operation waited upon. 


SIDE EFFECTS: 
None 
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RMSOWAIT WAIT FOR AYNC OPERATION 16-SEP-1984 01:34:4 AX/VMS Macro V04-00 Page 4 
v04-000 RMSSWAIT = SWAIT ROUTINE 87 ee 984 05:38:4 RMS.SRCIRMSOWAIT.MAR; 1 (4) 
134 SENTRY RMSSWAIT 
135 STSTPT 
FFF7* 30 8 1 § BSBW RMSRABCHK ; valid RAB? (exits if bad) 
00 1 ; R11=IMAGE IMPURE AREA addr 
B88 } 3 ; R9=ISI, R8=RAB addr, R7=MODE 
494 140 ; Get the IRAB addr, check for validity 
$09 143° 
50 07 00 0009 128 MOVL #IMP$L_IRABTBL/4,RO0 ; IRAB table offset/4 
FFFI° 20 000C 144 BSBW RMSGTIADR ; get IRAB addr 
45 4 4 145 BEQL DISCONNECT ranch if bad (assume DISCONNECT) 
00000008 0011 146 IF NE SSRMSTEST&SS$RMS_TBUGCHK 
OA O08 AD 91 0011 147 CMPB IRB$B_BID(R9) ,#IRBSC_BID 
52. 12 0015 148 BNEQ ERRBUG ; branch if not a valid IRAB 
0017 149 ~ENDC 
0017 150 
0017 151; 
0017 136 ; Also check the stored arg List RAB for sameness 
0017 +153; 
0017 154 
54 DS 0017 155 CLRL R4 ; clear flag assuming same RAB 
58 24 A9 =I S019 156 CMPL IRBSL_LAST_RAB(R9) ,R8B 3; same RAB? 
eC 12 Q01D 157 BNEQ DIFRAB 3 branch if not 
OO1F 158 
OO1F 159; 
Bote 160 ; Same RAB. If STS has a non-zero value implying operation done, just exit. 
OO1F 196 
OO1F 16 MOVL RABSL_STS(R8) ,RO 3; pick up status 
0023 164 BNEQ EXIT ; branch if status indicates done 
8058 165 C #IRBSV_BUSY, (RI) ,SUCXIT ; all set if not busy 
0029 166 ASSUME IRBS$V_ASYNC EQ IFB$V_ASYNC 
0029 167 CHKASY: BBC #IRBSV_ASYNC, (R9) ,SYNC_STALL ; branch if operation synch. 
002D 168 SSB #IRBSV_ASYNCWAIT, (R9) ; indicate set event flag req'd 
0031 169 Ovz #IMPSC_ASYEFN,R3 ; set EFN to WAIT on 
0034 170 SCLREF_S R3 ; clear it 
0030 171 SETSTALL: 
003D ze RMSSUC STALL,AP ; get set to STALL 
0042 17 BRw RMSENBAST 3 go re-enable ASTS and exit 
0045 174 
0045 175 ; ; 
Boe 178 ; Wait upon a synchronous request (must be from AST level) 
boa8 178 
0045 179 SYNC_STALL: 
0045 180 ASSUME IFBSB_EFN EQ IRBSB_EFN 
0045 181 MOVZBL IRBS$B_EFN(R9),R3 ; set EFN to WAIT on 
0049 182 BRB SETSTALL 
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yOL_000 RMSSWAIT = SWAIT ROUTINE tet 1 05:38:48 RMS.SRCIRMSOWAIT.MAR; 1 . se 
048 184 
rn aa 
048 «1 : ; RAB for $SWAIT and original operation are different. | 
Boee is ; ALL set if IRAB not busy, else clear STS and cause WAIT. 
048 190 ;-- 
048 191 
14 69 0 €1 048 138 DIFRAB: BBC #IRBSV_BUSY,(R9) ,SUCXIT ; branch if not busy 
D6 OO4F 19 INCL R4 ; set flag for different RABS 
08 AS D4 0051 194 CLRL RABSL_STS(R8) : zero STS for WAIT 
DS «3611 «40054 «= 195 BRB CHKASY 3; go check SYNC/ASYNC 
056 138 ; operation & STALL 
056 «419 
0056 198 ;++ 
0056 199; 
0056 200 ; Bad ISI value. Assume DISCONNECT has occurred. 
i soy ; Leave STS unchanged unless it is zero, in which case declare success. 
0056 $08 3e2 
0056 204 
0056 205 DISCONNECT: 
50 08 A8 00 0056 206 MOVL RABSL_STS(R8),RO 3; get status 
07 13 OOSA 207 BEQL UCXIT ; branch if zero 
8001 8F 50 Bi Beak 4 CMPW RO, #RMS$_STALLE*XFFFF ; did user set a weird 
03 12 0061 210 BNE EXIT 3; branch if not (o.k.) 
0063 211 SUCXIT: RMSSUC 3; show normal success 
FF97" 31 Bne8 sig EXIT: BRW RMSEX_NOSTR ; no need to WAIT (already done) 
0069 sli p++ 
0069 215; 
424 51§ ; Internal RMS problem - IRAB table pointed to an INVALID IRAB 
0069 218 ;-- 
0069 219 
0069 220 ERRBUG: RMSTBUG FTL$_BADIFAB 
0070 221 
0070 $56 
0070 22 . END 
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$$.PSECT_EP = 6° 00 
SSRMSTEST = 1A 
SSRMS_PBUGCHK = 0 8 
SSRMS_TBUGCHK = 0000000 
SSRMS_U = B88 3 
CHKASY 00000029 R 4 
DIFRAB id 4B R 1 
DISCONNECT 0000 28 R 01 
ERRBUG BRR Dee R 01 
EXIT 0000066 R 01 
rhe ac! ies = Ae aDDDD 
TEBE V-ASTNC = $oo00028 
IMPSC_ASYEFN = QOOOOOIE 
IMPSL_IRABTBL = 0000001C 
IRB$B_BID = sie ai ait 
IRBSB_EFN = 00000008 
IRB$C_BID = QQ00000A 
IRBSL_LAST_RAB = 00000024 
IRBSV_ASY = 00000023 
IRBSV_ASYNCWAIT = 00000024 
IRB$V_ BUSY = 00000020 
PIOSA_TRACE eeeeenee =X 01 
RABSL STS = 00000008 
RMSBUG eekkekeer x 01 
RMSENBAST kkekkkeee x 01 
RMSEX_NOSTR teaneeee YX 01 
RMSGTIADR eeeeeeee YX (01 
RMSRABCHK eeeeeeee =X 0] 
RMSSWAIT = FFFFFFFE RG 01 
AMS$_STALL = 00018001 
TSTAL 0000003D R 01 
SUCXIT 00000063 R 01 
SYNC_STALL 00000045 R 01 
SYSSTLREF eeeeeeee GX 01 
TPTSL_WAIT eeeeeeee = =X 01 
$eoeecceesceoecon + 
: Psect synopsis ! 
Swe Oe eee eee oa 
PSECT name Allocation PSECT No. Attributes 
- AB 00000000 <( 0.) OO ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS 00000070 (¢ 112.) O01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 <¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
nS a ee 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 0:00:00.0 0:00: 1.08 
Command processing 116 :00: 9-7 0:00: rat 
Pass 261 :00:07.4 8:08: 0.83 
Symbol table sort 0 :00:01.0 0:00:01.94 « 


RMSOWAIT 
VAX-11 Macro Run Statistics 


Pass 2 53 8: :01.3 :00:03.76 
Symbol table output 5 :00: 8 :00: “8 
Psect synopsis output 1 0:00:00. :00:00. 
Cross-reference output 9 0:00:00.0 : 9 2 
Assembler run totals 46 00:00:10.6 0:00:32. 


The working sgt Limit was 1200 pages. 

Seed eytes, 5 8 pagés) of virtual memory were used to buffer the intermediate code. 
re were 

¢ source’ Lines were read in Pass 1, producing 13 object records in Pass 
pages of virtual memory were used to define 22 macros. 


SEM OOM BEBE OOD ewan one ee me + 


Macro Library name Macros defined 
-$255$DUA28: CRMS .OBJJRMS.MLB; 1 12 
$255$DUA28:CSYS.OBJJLIB.MLB; 1 1 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 5 
TOTALS (all Libraries) 18 


926 GETS were required to define 18 macros. 


There were no errors, warnings or information messages. 


cs 
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=SEP=1984 16:25:3 


pages of symbol table space allocated to hold 794 non-local ne 1 local symbols. 
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